function mientras()
[X,Y] = meshgrid([-31:32],[-31:32]); 
params = gabor_params;
    params.orient = pi/6 ; 
    params.freq=0.2 ; 
    params.sigma = 10 ;
    G = gabor(X,Y,params) ; 
    imagesc1(X(1,:),Y(:,1),G) ;
    [Fx,Fy] = fftmesh(64) ; 
    Fx=fftshift(Fx) ; Fy=fftshift(Fy) ;
    P = abs(fftshift(fft2(G))) ;
    figure;contourf(Fx,Fy,P);colorbar ;
    orient = [-pi/2:0.05:+pi/2] ; sp_freq = [0:0.1:0.3]' ;
    Pi = cart2pol2(Fx,Fy,P,orient,sp_freq) ; contourf(orient,sp_freq,Pi) ;
end